﻿Imports DTO
Imports System.Data.SqlClient

Public Class DangNhapDAO
    Private Ketnoi As New DAO.connect()

    Public Function DangNhap(ByVal _TenDangNhap As String, ByVal _MatKhau As String) As List(Of DangNhapDTO)
        Dim ds As New List(Of DangNhapDTO)
        Dim dndto As New DangNhapDTO
        'Bước 1 tạo chuối kết nối và thực hiện viêc kết nối
        Ketnoi.OpenConnection()
        'bước 3 viết câu truy vấn (store)
        Dim sqlcmd As New SqlCommand("STR_DangNhap", Ketnoi.getConnection)
        sqlcmd.CommandType = CommandType.StoredProcedure
        'bước 4 thực thi câu truy vấn
        sqlcmd.Parameters.Add("@TENDANGNHAP", SqlDbType.VarChar)
        sqlcmd.Parameters.Add("@MATKHAU", SqlDbType.VarChar)
        sqlcmd.Parameters("@TENDANGNHAP").Value = _TenDangNhap
        sqlcmd.Parameters("@MATKHAU").Value = _MatKhau

        Dim dr As SqlDataReader
        dr = sqlcmd.ExecuteReader()
        While (dr.Read())
            dndto.MANGUOIDUNG = dr("MANGUOIDUNG")
            dndto.TENNGUOIDUNG = dr("TENNGUOIDUNG")
            dndto.TENDANGNHAP = dr("TENDANGNHAP")
            dndto.MATKHAU = dr("MATKHAU")
            dndto.LOAINHANNVIEN = dr("LOAINHANVIEN")
            dndto.TRANGTHAI = dr("TRANGTHAI")
            ds.Add(dndto)
        End While
        'Bước 5 đóng kết nối
        Ketnoi.CloseConnection()
        Return ds

    End Function

End Class
